#!
#the first hello program
$ch = 'a';
while($ch lt 'aaaaaaaaaaaaaa')
{
	print $ch;
	print "\n";
	$ch = "a$ch";
}